home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 22 / 022.d81 / convert all (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  8.2 KB  |  212 lines
  1. 0 dims$(15),c$(22),q$(23),p(22):s=1:d=53280:g=.:m=s:n=1048575:a=48:r=2
  2. 1 e=16:u=4096:v=256:e2=64:e3=128:e5=8:e6=4:e1=32:q=65536:printchr$(142):goto71
  3. 2 h1=g:h2=g:h3=g:h4=g
  4. 3 ifx>s1thenh1=h1+m:x=x-q:goto3
  5. 4 ifx>s2thenh2=h2+m:x=x-u:goto4
  6. 5 ifx>s3thenh3=h3+m:x=x-v:goto5
  7. 6 ifx>s4thenh4=h4+m:x=x-e:goto6
  8. 7 e$(1)=q$(h1):e$(2)=q$(h2):e$(3)=q$(h3):e$(4)=q$(h4):e$(5)=q$(x):return
  9. 9 b(1)=g:b(2)=g:b(3)=g:b(4)=g:b(5)=g:b(6)=g:b(7)=g:b(8)=g
  10. 10 ifx>s3thenx=x-v:b(m)=m
  11. 11 ifx>s5thenx=x-e3:b(2)=m
  12. 12 ifx>s6thenx=x-e2:b(3)=m
  13. 13 ifx>s7thenx=x-e1:b(4)=m
  14. 14 ifx>s4thenx=x-e:b(5)=m
  15. 15 ifx>s8thenx=x-e5:b(6)=m
  16. 16 ifx>s9thenx=x-e6:b(7)=m
  17. 17 ifx>mthenx=x-r:b(8)=m
  18. 18 b(9)=x:return
  19. 20 gosub800:gosub825
  20. 21 print"[146]":forf=ftof+s*13steps:print"";
  21. 22 prints$(len(str$(f)));f;"";
  22. 23 oncgoto25,26,27,28,29,30,31,32,33,34,35,36,37,38,39
  23. 24 t=f*30:goto40
  24. 25 t=(f*9)/5+e1:goto40
  25. 26 t=((f-e1)*5)/9:goto40
  26. 27 t=f*.621:goto40
  27. 28 t=f*1.609:goto40
  28. 29 t=f*3.3:goto40
  29. 30 t=f/3.3:goto40
  30. 31 t=f*.3937:goto40
  31. 32 t=f*2.54:goto40
  32. 33 t=f*2.2046:goto40
  33. 34 t=f*.45:goto40
  34. 35 t=f*.035:goto40
  35. 36 t=f*28:goto40
  36. 37 t=f*.264:goto40
  37. 38 t=f*3.785:goto40
  38. 39 t=f*.03
  39. 40 printt;"[157]";s$(len(str$(t)));"";:next:gosub850:ifo<5then21
  40. 41 ifo=6thenpoked,14:poked+1,11:print"[147]":goto20
  41. 42 return
  42. 71 s$(1)="                 ":s$(2)="                ":s$(3)="               "
  43. 72 s$(4)="              ":s$(5)="             ":s$(6)="            "
  44. 73 s$(8)="          ":s$(9)="         ":s$(10)="        ":s$(11)="       "
  45. 74 s$(13)="     ":s$(14)="    ":s$(7)="           ":s$(12)="      ":p(22)=15
  46. 75 c$(1)="celsius - fahrenheit":p(18)=11:p(19)=12:p(20)=13:p(21)=14
  47. 76 c$(2)="       fahrenheit - celsius":poke788,52
  48. 77 c$(3)="       kilometers - miles":c$(4)="           miles - kilometers"
  49. 78 c$(5)="           meters - feet":c$(6)="             feet - meters"
  50. 79 c$(7)="      centimeters - inches":c$(8)="          inches - centimeters"
  51. 80 c$(9)="        kilograms - pounds":c$(10)="           pounds - kilograms"
  52. 81 c$(11)="            grams - ounces":c$(12)="           ounces - grams"
  53. 82 c$(13)="           liters - gallons":c$(14)="          gallons - liters"
  54. 83 c$(15)="      milliliters - fluid ounces"
  55. 84 c$(16)="     fluid ounces - milliliters"
  56. 85 c$(17)="          decimal - hex":c$(18)="              hex - decimal"
  57. 86 c$(19)="          decimal - bianary":c$(20)="          bianary - decimal"
  58. 87 forj=0to9:q$(j)=right$(str$(j),1):p(j)=j:next:q1=511
  59. 88 q$(10)="a":q$(11)="b":q$(12)="c":q$(13)="d":q$(14)="e":q$(15)="f":p(17)=10
  60. 89 s0=14:s1=65535:s2=4095:s3=255:s4=15:s5=127:s6=63:s7=31:s8=7:s9=3
  61. 90 q$(17)="a":q$(18)="b":q$(19)="c":q$(20)="d":q$(21)="e":q$(22)="f":q$(23)="0"
  62. 100 poked,10:poked+1,2:print"[146][147]"spc(14)"convert  all":printspc(9)"from  ";
  63. 101 print"panther software":print"[150]                                     ";
  64. 105 print"               [150]                            ";
  65. 108 print"[150]                                        "
  66. 109 print"[144]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][194]";spc(34)"[194]"
  67. 110 print"  [194][150]          d[146]istance        [144]        [194]"
  68. 112 print"  [194][150]          w[146]eight                  [144][194]":print"  [194][150]          ";
  69. 114 print"n[146]umbering systems       [144][194]":print"  [194][150]          l[146]iquids     ";
  70. 116 print"            [144][194]":print"  [194][150]          t[146]emperature             [144][194]"
  71. 118 print"  [194][150]                                  [144][194]":print"  [194][150]          s[146]tep";
  72. 120 print" change             [144][194]":print"  [194][150]                                  [144][194]
  73. 122 [153]"  peekcmdpeekondef          ewaitxit program            stoppeekcmdpeek"
  74. 123 [153]"  /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  75. 124 [153]"defpress option"
  76. 125 x[178]0:[129]j[178]1[164]35:[161]x$:[139]x$[178]"l"[176]x$[178]"d"[176]x$[178]"t"[176]x$[178]"e"[176]x$[178]"w"[167]x[178]1:j[178]35
  77. 126 [139]x$[178]"n"[176]x$[178]"s"[176]x$[178]""[167]x[178]1:j[178]35
  78. 130 [130]:[139]x[178]1[167]139
  79. 134 [153]"def             "
  80. 135 [129]j[178]1[164]15:[161]x$:[139]x$[178]"w"[176]x$[178]"d"[176]x$[178]"e"[176]x$[178]"t"[176]x$[178]"l"[167]x[178]1:j[178]15
  81. 136 [139]x$[178]"n"[176]x$[178]"s"[176]x$[178]""[167]x[178]1:j[178]15
  82. 137 [130]:[139]x[178]0[167]124
  83. 139 [139]x$[178]"e"[176]x$[178]""[167]920
  84. 140 [151]d,14:[151]d[170]1,11:[153]"load":[139]x$[178]"d"[167]190
  85. 150 [139]x$[178]"w"[167]230
  86. 151 [139]x$[178]"n"[167]300
  87. 152 [139]x$[178]"l"[167]260
  88. 153 z$[178]"":[139]x$[178]"t"[167]180
  89. 155 [153]"loadwait character increment now set at";s:[153]" return new step ";
  90. 157 [161]x$:[153]"tocmd";:[139]x$[178][199](13)[167]s[178][197](z$):[137]100
  91. 158 [139]x$[179][177][199](20)[175]x$[179][177]"cmd"[175]x$[179][177]"0"[175]x$[179][177]"."[175][197](x$)[179]1[167]157
  92. 159 [139][195](z$)[179]1[175](x$[178]"cmd"[176]x$[178][199](20))[167]157
  93. 160 [139]x$[178]"cmd"[176]x$[178][199](20)[167]z$[178][200](z$,[195](z$)[171]1):[153]"cmd  cmdcmd";:[137]157
  94. 162 [153]x$;:z$[178]z$[170]x$:[137]157
  95. 180 [153]" from :  cwaitelsius to fahrenheit":[153]"         fwaitahrenheit";
  96. 181 [153]" to celsius"
  97. 184 [161]x$:[139]x$[179][177]"f"[175]x$[179][177]"c"[167]184
  98. 186 c[178]1:[139]x$[178]"f"[167]c[178]2
  99. 187 [141]20:[137]100
  100. 190 [153]" from :  kwaitilometers to miles":[153]"         mwaitiles to kilometers"
  101. 192 [153]"         mewaitters to feet":[153]"         fwaiteet to meters"
  102. 194 [153]"         cwaitentimeters to inches":[153]"         iwaitnches to ";
  103. 195 [153]"centimeters"
  104. 198 [161]x$:[139]x$[179][177]"k"[175]x$[179][177]"m"[175]x$[179][177]"e"[175]x$[179][177]"f"[175]x$[179][177]"c"[175]x$[179][177]"i"[167]198
  105. 200 c[178]3:[139]x$[178]"m"[167]c[178]4
  106. 201 [139]x$[178]"e"[167]c[178]5
  107. 202 [139]x$[178]"f"[167]c[178]6
  108. 203 [139]x$[178]"c"[167]c[178]7
  109. 204 [139]x$[178]"i"[167]c[178]8
  110. 206 [141]20:[137]100
  111. 230 [153]" from : kwaitilograms to pounds":[153]"        pwaitounds to kilograms"
  112. 232 [153]"        gwaitrams to ounces":[153]"        owaitunces to grams"
  113. 235 [161]x$:[139]x$[179][177]"k"[175]x$[179][177]"p"[175]x$[179][177]"g"[175]x$[179][177]"o"[167]235
  114. 237 c[178]9:[139]x$[178]"p"[167]c[178]10
  115. 238 [139]x$[178]"g"[167]c[178]11
  116. 239 [139]x$[178]"o"[167]c[178]12
  117. 240 [141]20:[137]100
  118. 260 [153]" from :  lwaititers to gallons":[153]"         gwaitallons to liters"
  119. 262 [153]"         mwaitilliliters to fluid ounces"
  120. 263 [153]"         fwaitluid ounces to milliliters"
  121. 265 [161]x$:[139]x$[179][177]"l"[175]x$[179][177]"g"[175]x$[179][177]"m"[175]x$[179][177]"f"[167]265
  122. 268 c[178]13:[139]x$[178]"g"[167]c[178]14
  123. 270 [139]x$[178]"m"[167]c[178]15
  124. 272 [139]x$[178]"f"[167]c[178]16
  125. 275 [141]20:[137]100
  126. 300 [153]" from :  dwaitecimal to hex":[153]"         hwaitex to decimal"
  127. 302 [153]"         dewaitcimal to bianary":[153]"         bwaitinary to decimal"
  128. 305 [161]x$:c[178]0:[139]x$[179][177]"d"[175]x$[179][177]"h"[175]x$[179][177]"e"[175]x$[179][177]"b"[167]305
  129. 308 ss[178][181](s):[139]x$[178]"d"[176]c[178]17[167]c[178]17:[141]800:[141]825:[137]320
  130. 309 [139]x$[178]"h"[176]c[178]18[167]c[178]18:[141]905:[141]825:[137]345
  131. 310 [139]x$[178]"e"[176]c[178]19[167]c[178]19:[141]800:[141]825:[137]400
  132. 312 [139]x$[178]"b"[176]c[178]20[167]c[178]20:[141]885:[141]825:[137]450
  133. 320 [153]"wait":[129]i[178]m[164]s0:[153]"";:[139]f[179]g[167]f[178]g
  134. 322 [139]f[177]n[167]f[178]n
  135. 324 [153]s$([195]([196](f)));f;"";:x[178]f:[141]2
  136. 325 [153]e$(1);e$(2);e$(3);e$(4);e$(5);" "
  137. 335 [139]i[173]r[179][177][181](i[173]2)[167][153]"on";
  138. 338 f[178]f[170]ss:[130]:[141]850:[145]o[137]320,320,320,320,100
  139. 340 [151]d,14:[151]d[170]1,11:[153]"load":x$[178]"":[137]308
  140. 345 [153]"wait":[129]i[178]m[164]s0:[153]"             ";
  141. 348 [153]e$(1);e$(2);e$(3);e$(4);e$(5);"";
  142. 350 t[178]q[172]p([198](e$(1))[171]a)[170]u[172]p([198](e$(2))[171]a)[170]v[172]p([198](e$(3))[171]a)
  143. 355 t[178]t[170]e[172]p([198](e$(4))[171]a)[170]p([198](e$(5))[171]a)
  144. 359 [153]t;"cmd   "
  145. 360 [139]i[173]r[179][177][181](i[173]r)[167][153]"on";
  146. 364 x[178]t[170]ss:[139]x[179]g[167]x[178]g
  147. 365 [139]x[177]n[167]x[178]n
  148. 390 [141]2:[130]:[141]850:[139]o[179]5[167]345
  149. 394 [139]o[178]6[167][151]d,14:[151]d[170]1,11:[153]"load":x$[178]"":[137]309
  150. 395 [137]100
  151. 400 [153]"wait":[129]i[178]m[164]s0:[139]f[179]g[167]f[178]g
  152. 407 [139]f[177]q1[167]f[178]q1
  153. 410 [153]"";s$([195]([196](f)));f;"";:x[178]f:[141]9:[153]b(1);"cmd";b(2);"cmd";
  154. 425 [153]b(3)"cmd";b(4);"cmd";b(5);"cmd";b(6);"cmd";b(7);"cmd";b(8);"cmd";b(9);
  155. 430 f[178]f[170]ss:[130]:[141]850:[145]o[137]400,400,400,400,100
  156. 435 [151]d,14:[151]d[170]1,11:[153]"load":x$[178]"":[137]310
  157. 450 [153]"wait":[129]i[178]m[164]s0:[153]"";
  158. 452 [153]b(1);"cmd";b(2);"cmd";b(3);"cmd";b(4);"cmd";b(5);"cmd";b(6);"cmd";b(7);"cmd";b(8);
  159. 455 [153]"cmd";b(9);"";
  160. 456 t[178]b(1)[172]v[170]b(2)[172]e3[170]b(3)[172]e2[170]b(4)[172]e1[170]b(5)[172]e[170]b(6)[172]e5[170]b(7)[172]e6[170]b(8)[172]r[170]b(9)
  161. 470 [153]t;"cmd  ":[139]i[173]r[179][177][181](i[173]r)[167][153]"on";
  162. 471 [139]t[170]ss[177]q1[167]t[178]q1[171]ss
  163. 472 x[178]t[170]ss:[141]9:[130]:[141]850:[145]o[137]450,450,450,450,100
  164. 473 [151]d,14:[151]d[170]1,11:[153]"load":x$[178]"":[137]312
  165. 800 [153]"return number to convert ? ";:n$[178]""
  166. 802 [161]x$:[153]"tocmd";:[139]x$[178][199](13)[167]f[178][197](n$):[142]
  167. 804 [139][197](x$)[179]1[175]x$[179][177]"0"[175]x$[179][177]"."[175]x$[179][177]"-"[175]x$[179][177]"cmd"[175]x$[179][177][199](20)[167]802
  168. 806 [139](x$[178]"cmd"[176]x$[178][199](20))[175][195](n$)[179]1[167]802
  169. 808 [139]x$[178]"cmd"[176]x$[178][199](20)[167]n$[178][200](n$,[195](n$)[171]1):[153]"cmd  cmdcmd";:[137]802
  170. 810 [153]x$;:n$[178]n$[170]x$:[137]802
  171. 825 [151]d,3:[151]d[170]1,12:[153]"contload                                       ";
  172. 830 [129]j[178]1[164]23:[153]"  cmdcmd";:[130]
  173. 832 [153]"                                        cmdsave ";"pokewait";[166]12);
  174. 833 [153]"conversion  from":[153]"on";c$(c)
  175. 834 [153]"clr";[166]13);"              ";
  176. 835 [153]"cmdcmdcmdcmdcmdcmdcmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmd cmdclosecmd "
  177. 836 [142]
  178. 850 [153]"stop             press option             ";
  179. 851 [153]" 1: + page     3: + one     5: return ";
  180. 852 [153]" 2: - page     4: - one     6: new amtononcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  181. 853 s(2)[178]s[172][171]28:s(3)[178]s[172][171]13:s(4)[178]s[172][171]15:s(5)[178]s:s(6)[178]s[172][171]27:s(7)[178]s[172][171]12:s(8)[178]s[172][171]14
  182. 855 x[178]0:[129]j[178]1[164]100:[161]x$:[139][197](x$)[177]0[175][197](x$)[179]7[167]x[178]1:j[178]100
  183. 856 [130]:[153]"            ";:[139]x[178]1[167]865
  184. 860 [129]j[178]1[164]40:[161]x$:[139][197](x$)[177]0[175][197](x$)[179]7[167]x[178]1:j[178]40
  185. 861 [130]:[139]x[178]0[167]850
  186. 865 o[178][197](x$):f[178]f[170]s(o):[139]c[179][177]18[175]c[179][177]20[167][142]
  187. 866 x[178]t[170]s(o[170]4):[139]c[178]20[175]x[177]4095[167]x[178]4095
  188. 867 [139]c[178]18[175]x[177]1048576[167]x[178]1048576
  189. 868 [139]x[179]0[167]x[178]0
  190. 875 [139]c[178]18[167][141]2:[142]
  191. 876 [141]9:[142]
  192. 885 [153]"return number to convert ? ";:n$[178]""
  193. 887 [161]x$:[153]"tocmd";:l[178][195](n$):[139]x$[178][199](13)[176]l[177]9[167]900
  194. 889 [139](x$[178]"cmd"[176]x$[178][199](20))[175]l[177]0[167]n$[178][201](n$,l[171]1):[153]"cmd  cmdcmd";
  195. 890 [139]x$[179][177]"0"[175]x$[179][177]"1"[167]887
  196. 892 n$[178]n$[170]x$:[153]x$;:[137]887
  197. 900 [139][195](n$)[179]9[167]n$[178]"0"[170]n$:[137]900
  198. 901 [129]j[178]1[164]9:b(j)[178][197]([202](n$,j,1)):[130]:[142]
  199. 905 [153]"return number to convert ? ";:f$[178]""
  200. 907 [161]x$:[153]"tocmd";:l[178][195](f$):[139]x$[178][199](13)[176]l[177]5[167]f$[178][200](f$,5):[137]915
  201. 909 [139](x$[178]"cmd"[176]x$[178][199](20))[175]l[177]0[167]f$[178][200](f$,l[171]1):[153]"cmd  cmdcmd";:[137]907
  202. 910 y[178][198](x$[170][199](0)):[139]y[179]48[176]y[177]70[176](y[177]57[175]y[179]65)[167]907
  203. 912 [153]x$;:f$[178]f$[170]x$:[137]907
  204. 915 [139][195](f$)[179]5[167]f$[178]"0"[170]f$:[137]915
  205. 917 [129]j[178]1[164]5:e$(j)[178][202](f$,j,1):[130]:[142]
  206. 920 [151]d,4:[151]d[170]1,6:[153]"loadopen                                        ";
  207. 922 [153]"                                        ";
  208. 924 [153]"stop            program terminated stop         ";
  209. 925 [153]"open                                        ";
  210. 927 [153]"                                        "
  211. 928 [147]"hello connect",8
  212.